`? BƢؠ BƢ iʽ1R   @ Y >Lh}   0LV ɩ өHyHHTHjjLBAS2BOOT (c)1999 JindroushLoading TPSHLF ~??BLELEINTOMENFLOFFSECOROCURDLAILEMODCDACLBFIELDSESTARSTLLENOBEENUFINDBUFFERRECLERECORDMELNDELATYPEFUNFILEDATDECSPACADDEOLOTMRLEREDIOCCMIOCBICCOICSTICBAICBAICBLICBLLHCIOSTASORTDEDZEROFCTOFNMOVCP&&A@0AQ A@2 @ w @ @w@Bs@$(v((@@AAyAAP !"#nn$l5%&'B6v(@)A0A*+ ,-dA.$/0123456A7u89:;<=>?@ABCDEFGHIJ KLMNOPQ..R TOPSHELF BY LESTER BLOCK(c)1987, ANTIC PUBLISHING AP<@w'@A9B7tA<$.-@(+-@.$(.-@@(+-@@.$2((  $(NO DATA ON FILE( <$FV1-@$+!,%@#$+",O%$@%@@S V$P>-%@@#7%$@%@@; >$cINPUT ROUTINEdL@.@@K:=6-F:@,L6-F:@,n(-@@s> @%(F:@,"%*"@>(7@<@,u F:Ad,AUA0x- 6-+",#AR- A$)@$@AE` A@6-F:@,+6-F:@,?-@@"K-@X@\3`  A- A !"@' @p(!  ( $,"AU-"@, Ap++"@))"@()"ATA  (>:, A )B:,")6.7@<@%,$OK3 #(IS THIS CORRECT (Y/N) /6-3 !!@x*@A$-@A $SHOW TITLES @pAR@1@@5(G-@@U-@z(7$@&@<$@,:~ $^%2@P@@96-@#@[2^$6-@6- O -(7$@&@<$@,:K%$@%@@DO L6-+"@C,&+"@E,+"AUI%$@%@@L$H!%$@%@@)6-%9 @)!@6-6H6-%" Ae+SEE NAMES,< @P A@ <(LOOK FOR..::: ENTERS6 A`@G!%$@%@@*6-8,. G(ENTER NAME TO FIND E^ -(7$@&@<$@,:96-@B6-8,F J ^"@xAJ0 @p6-B:," @& 0 A0O27<,4>:@4,#67,. 26.7@,T3 ( LOOKING FOR '6-@36-Y996-?:C:,;@@G6-@S6-@W 0-@067$@&@,.>:8,,="67$@&@,.>:8,,967$@,.>:8,,= C 6.D:67@,. +(>/ C"@xA` A @5@@@@D H L \( >>` ("@x $( NOT SAVED( R A6-%A&@C@@I6.R6-C:, (@&06-@ A  ,( FILE SAVED0 /ERASE FILE0K( #(ŠCURRENT FILE!' 3"@x7 G( FILE INTACTK :?6-@6- ;(FILE ERASED FROM MEMORY? X- -(!CORRECT ENTRIES::: ENTERSb+ A`+%$@%@@v=-@%@$@38,"@= Ay0-@%@,(7@<@%,0 {T*(7$@&@<$@,:. B(MAKE CORRECTIONT-@@d 6-8,6-@ 067B:,%@,.D6.7@<8,,d%+$@&@,@E 6--@%@!(% 1"@x; @pE A1 A167$&%@<$,.7@<,5!%$@%@@'!-6-56-%. *(CORRECTIONS MADE, DATA ENTERED.  EXIT7 (...ARE YOU SURE# /"@x3(7  + BROWSEe @P A@ &(* M(IRST:AST:IDDLE..SELECT ONEY6-e6-@Q >6-+"@p,%$+"@v,%P:'@,$+"@w,C(G Q A` 6-"6-66.7$&%@, - A6-%-!) @Ap Au LOAD R 6.D: #(Enter Filename' 2(>A6-F:@,F(R@*V6-@6-@ .67@,.2 >(>B V"@xA4b 6.6-@6-C:,( A3@P@@V6-b6-@>@Hn A 6-@'-@068,-L6-@:7$@&@,,U68,-]6-%n68,-&@R="68,-@:7$@&@,,968,-@:7$@,,= \/ ( File Loaded! @+ @p/ I6-@;6-@$+"@,%@$+"@,I6-$@;6-A4%6-A5%-6-A6%;6-A7%/6-A@%6-AA%%6-/ A 9"@6.67,.-67@,.36.96. 6- A # #6-?:C:,<,G@(6-F:,1@*A6=AG A$+  '( I/O ERROR #F:A,+ '6-P:'AV,$6-&$AV'$KSHOW DATALZ@@'AR@9-@@G-@V(78,<8,,Z VS@@ )( SELECT ITEM- S( ORRECT:RASE::: CONT:`6- s6-+"@g,%@$+"@i,%@$+"@C,%@$+"@E,%@$+"@2,x(|  A j//AA@APAPAtK ( THIS RECORD! -"@x1 G(RECORD NOT ERASEDK ~%%67$&%@,.7$%@, 6-&6-&@ ( RECORD ERASED  VERT'6-+"@,&+"@,'6-%2 !6-  (( РƠ2 A A @6-@ # 7(͠ƠA A "6.7$&%@," A $ SORTl @P A@ D($ USING FIELD (:: ENTERS)N A`l%$@%@@T 6-8, <(SORT ON 7$@&@<$@,@ T@A(' @p( !(SORTING$('(2E-@&@E6-?:C:,:@4,567,. D6.7@,< ( Looking for '6-06-C:,<6-@996-?:C:,-@@J6-@S6.D:+6-@  +"@xA`67@,.Z "(ENTER TYPE OF TRANSFER& >(MOVE AS:ATA:EXT>J6-@V6-@Z  "@xAE A@5@@E4TA0U 6.-@667$@&@,.>:8,,U67$@&@,.>:8,,67$@,.>:8,, 0B:, A&67B:,%@,.0 A$0B:, A&67B:,%@,.0 A%AA(@'@+'@,$%@(@6.C!-&@@C6-F:%,%AV$F:%%@,I6.7$&%@,&-@:-@%@I(78,<8,,'"@'(@78,<8,,A"@A37$@&@<$@,:78,<8,, "@3"; @ 7(DISPOSITION OF DATA COMPLETE; ?DIRECTORY@+( (  +(DRIVE #:J+6-  A+6-&@HT1 6.D67@,.=:,167@,.:*.*hSAR@ @=@@I6-S AprT@P-@%@$+'@"P:'@,,@%P:'@,T(|6-%@ AP* (All Files Listed& A* + B '(Disk Files Listed+ PUT DATA INTO RECORD$DAR@#-@7-@%@D@% 6-8,6-@%(A#-@6-$@# ''8,")8,"@A8,"@AP* A56-A:, B* A@6- AEE8,"#6-P:%?P,7-@%@;(E A6.=:$,6-B:,1"(6.7@<%@,16-B:, A  Ai6.7$@ &@,(6-46-@@6-T-@%@i(7@<@(,K7<,/9*7<,1036-$@%A:7<,,A6-%@K A`@ Ag"6.78,<8,,, A56-A:,:(@6-Ap/ -@%@%(error/ AS6-%@"@AAAAAG6-S6-@`S6-+7<,4+,%@$+7<,4-,%@$+7<,4*,%@$+7<,4/,`(A'6-%@6-' A`(-@B:,!7<,4 % ($'6.7,$ !8,$!2 6.6-B:, 678,&,.&6./6-B:,2$X 6-%$Y 6-&$Z 6-$$[ 6-'$bP6.=:P:$,,6-B:,)A:,"B6.7@<%@,P6-%@dD %@6.&67@,.,6.:6-%@D AgC-@%@)(7@<&,-C(.7&%@,i !8,(*lD-@%@$@0B:, 8,D67B:,%@,.v)"678,<8,,.7@<8,,& )$3CREATE FILE4B 6-6- @%6-16-5(B(A!6`-@%-@%@)(=-@%@`6.7$@&@<$@,7 A86(-@%@6(8,&8,&+8,!,95-@'%@ 6-8,%(+(C5 A! :"@(N A! ;"@(F A! < (S=4-@7%@-"@)"@4(8,> C>6-@ >(&NO..TITLE...LENGTH..TYPE(C/N/F/S)..DECH$ $(Enter blank title to endRh-@%@$(%@8-@%@D6-@H WB:,"@h67@,. W) )7@<@,4 A!p\K-@%@#6-@' ;-@'%@G6-@K fK37@<@,0C*7@<@,0SG-@7%@K p%6-%@% @ A! z ( FIELDS CREATEDJ "@x 0(CORRECT AND RE-ENTER4 @6-J A!6-@-@;%$@%@@DO-@%@\@s6.7@<@,-@@6@7<,4  l'6.7@<,067$@&@,.X67$@&@%+@&B:,,,.l67B:,%@,.6- A"36-A:7@<@,,J6.7@#<@#,X4F)4Nb A"|6-A:7@3<@3,,6-%%@Z!@%  >("FIELD LENGTH NO MORE THAN 25 TOTALB P6-&@Z A!K 68,-68,-6-%.68,-&@768,-A BK A" [  3("ERROR IN LENGTH OF FIELD..RE-ENTERA6-&@M6-@Q [ A!6-+7@#<@#,4C,%@$+7@#<@#,4N,%@$+7@#<@#,4F,%@$+7@#<@#,4S,A"@O  3("UNABLE TO INTERPRET TYPE..RE-ENTER7 E6-&@O A!.6-&@68,-."@A#P@A#!!%$@%@@^-@'%@$(>:A,( J(ENTER FUNCTION FOR FIELD # N ^( FUNCTION:>76-@6-@  # 7"@xA"P:67$@ &@,.067B:,%@,.: A#PF  *(ERROR IN DECIMAL..RE-ENTER. <6-&@F A!@A#P K-@'%@$(>:A,( K(ENTER STATEMENT FOR FIELD #  K ( STATEMENT>#6-@/6-@ 3 7 K"@xA# 067$@ &@,.067B:,%@,.. R!%$@%@@% 16-; @pA6-J6-8,N(R 8 &(NEW FILE CREATED" @& ;@@,;@@,;@8,;@,;@,9@ ,9@ ,9@ ,;@,;A,;@F,;@,6. 0000000000: 6. 67@8,.)67@,.16.}:6.aR;A,;@ ,9@ ,9@ ,;@,;A,;AB,a6.>:AU,(;@,6.hhhLV(#AP C@.@@E:@AR@C(7"71700,100,200,250,5120,30,40,230w-@@E@-%C%%@@G YAAkA@w@RR67@<@U,.7hhhhhhhhhhhhhϭRR67@V<A,.7 `0ѱeυ˥eЅaa67@<@p,.Fhhhhhhhhhhh˅ͥ̅mcc67@q<AB,.Hͥmέ0 `Ϡ0 ͅ˥΅886..hhhhhhh`76-I:,&A7;A,;A,;,%6-@6-%#A@QOO6-?:C:,